home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-4.dms / in.adf / Rexx.Lha / fd2pragma.srx < prev    next >
Encoding:
Text File  |  1996-11-10  |  838 b   |  33 lines
  1. /* 
  2.     fd2pragma.srx
  3.     
  4.     Translates a function desriction file into pragma statements
  5.         
  6.     © 1996 HAAGE & PARTNER GmbH
  7.     
  8.     $VER fd2pragma.srx 1.0 (4.11.96)
  9.     
  10.     Hint: Normaly you don't need to use that script because the linker does
  11.     this job perfectly for you if you want to link a shared library.
  12.     
  13. */
  14.  
  15. /* Don't forget the point '.' at the end      \/        */
  16. PARSE ARG '"' filename '"' '"' projectname '"' .
  17.  
  18. /* Replace suffix ".fd" by ".h" */
  19. objectname = LEFT(filename,LASTPOS('.fd',filename)-1)||".h"
  20.  
  21. SAY ""
  22. SAY "FD2Pragma Script ©1996 HAAGE & PARTNER GmbH"
  23. SAY "Compile "||filename||" to header "||objectname||"."
  24.  
  25. /* set object file of catalog file */
  26. OBJECTS filename objectname
  27.  
  28. /* compile */
  29. ADDRESS COMMAND "StormC:StormSYS/fd2pragma "||filename||" "||objectname||" 1 0"
  30.  
  31. /* add object file to project */
  32. ADDFILE objectname QUIET
  33.